#lang rosetta-racket


(provide stair-case)


(define (step c w l h)
  (box c w l h))

(define (stair-case cs w l h)
  (if (empty? cs)
      (list)
      (cons
       (step (first cs) w l h)
       (stair-case (rest cs) w l h))))


(define (straight-cs n)
  (if (= n 0)
      (list)
      (cons
       (xyz 0 n n)
       (straight-cs (- n 1)))))

(define (straight-stair-case)
  (stair-case (straight-cs 10) 3 2 1))